;Detectores para el problema de las lentes
(defparameter *entorno* 
  (list
   (list (list 0 0 1 0 1) (list -1)) 
   )
)
